#define TREAL REAL*8
#define TINTEGER INTEGER*4
